home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / GUI / func.templates < prev    next >
Encoding:
Text File  |  2000-04-20  |  3.9 KB  |  152 lines
  1. G4C
  2. ; $VER: func.templates rev.004 Juan Manuel Wehrli 2000
  3. WINBIG -1 -1 410 400 "HTMLEXT: Vorlagen"
  4. WinType 11110000
  5. WinBackground IMAGE BG 0
  6. Winout "NIL:"
  7.  
  8. xOnLoad
  9.     SetVar templdir $*SITEDIR
  10.     AppVar templdir "_hxt/defs/"
  11.     SetVar templdir2 $*SITEDIR
  12.     AppVar templdir2 "_hxt/defs"
  13.     ifexists dir $templdir
  14.         ;
  15.     else
  16.         CLI 'makedir $templdir2'
  17.     endif
  18.     Lvuse #This 1
  19.     LVDir #$templdir
  20.     GuiOpen #This
  21.  
  22. xOnClose
  23.     GuiQuit #This
  24.  
  25. ;Globale Gadgets
  26. xListview 5 5 400 350 "" "resfiles" "" 0 "DIR"
  27.     GadID 1
  28.     GadFont sgiscreen.font 13 000
  29.     CLI 'sys:utilities/multiview $resfiles PUBSCREEN=$*SCREEN'
  30.  
  31. ;===============================================
  32. XBUTTON 5 355 80 18 "Erzeugen"
  33.     GadFont xHelvetica.font 11 000
  34.     LVUSE #This 1
  35.     EZREQ "Wollen Sie von der markierten Datei erzeugen, oder leer?" "Leere|Markierte|Abbrechen" vorlerzw
  36.     if $vorlerzw = 1
  37.         ReqFile -1 -1 250 500 "Bitte Vorlagenamen angeben ..." FILE "vorlfile" "$templdir"
  38.         ifexists file $vorlfile
  39.             EZREQ "Soll die bestehende Datei überschrieben werden? ($vorlfile)" "Weiter|Abbrechen" abfr1
  40.             if $abfr1 = 1
  41.                 Update "InfoBar" 1 "Erstelle Vorlage ... $vorlfile"
  42.                 CLI 'copy htmlext:settings/defaults/vorlage.txt TO $vorlfile NOREQ'
  43.             endif
  44.         else
  45.             Update "InfoBar" 1 "Erstelle Vorlage ... $vorlfile"
  46.             CLI 'copy htmlext:settings/defaults/vorlage.txt to $vorlfile NOREQ'
  47.         endif
  48.         CLI 'rx $*EDITOR OPENNEW $vorlfile'
  49.         CLI 'rx $*BROWSER OPEN $vorlfile'
  50.     else
  51.         ;Nichts
  52.     endif
  53.  
  54.     if $vorlerzw = 2
  55.         LVUSE HTMLEXT 3
  56.         LVMulti First
  57.         while $$lv.line > ""
  58.             JoinFile $$lv.dir $$lv.rec file
  59.             SetVar tmpdir $*SITEDIR
  60.             Appvar tmpdir "_hxt/defs/"
  61.             JoinFile $tmpdir $$lv.rec destfile
  62.             ifexists file $destfile
  63.                 EZREQ "Vorlage besteht bereits!" "Weiter" NIL
  64.             else
  65.                 CLI 'copy $file to $destfile NOREQ'
  66.             endif
  67.             LVMulti OFF
  68.             LVMulti Show
  69.             LVMulti NEXT
  70.         EndWhile
  71.         LVDIR #$$LV.DIR
  72.         Update "InfoBar" 1 "Fertig!"
  73.     endif
  74.     lvuse #This 1
  75.     LVDir #$$lv.dir
  76.     Update "InfoBar" 1 "Fertig!"
  77.  
  78. XBUTTON 5 375 80 18 "Bearbeiten"
  79. GadFont xHelvetica.font 11 000
  80. LVUSE #This 1
  81. LVMulti First
  82. while $$lv.line > ""
  83.     JoinFile $$lv.dir $$lv.rec file
  84.     CLI 'rx $*EDITOR OPENNEW $file'
  85.     LVMulti OFF
  86.     LVMulti Show
  87.     LVMulti First
  88. EndWhile
  89.  
  90. XBUTTON 85 355 80 18 "Umbennen"
  91.     GadFont xHelvetica.font 11 000
  92.     LVUSE #This 1
  93.     LVMulti First
  94.     while $$lv.line > ""
  95.         SetVar .htmlext.rqt "Umbennen"  ;Titel
  96.         SetVar .htmlext.rqb "Bitte Dateinamen ändern ...             "  ;Body
  97.         SetVar .htmlext.rqd "$$lv.rec"  ;Default
  98.         SetVar .htmlext.rqu "Ändern|Abbrechen"  ;Buttons
  99.         cli 'rx htmlext:mod/htmlext.smod REQSTRING'
  100.         if $.htmlext.res = 1
  101.             JoinFile $$lv.dir $$lv.rec file
  102.             JoinFile $$lv.dir $.htmlext.tmp nfile
  103.             CLI 'rename FROM $file TO $nfile'
  104.         endif
  105.         LVMulti OFF
  106.         LVMulti Show
  107.         LVMulti NEXT
  108.     EndWhile
  109.     lvdir #$$lv.dir
  110.  
  111. XBUTTON 85 375 80 18 "Löschen"
  112.     GadFont xHelvetica.font 11 000
  113.     Update "InfoBar" 1 "Lösche alle selektierten Vorlagen ..."
  114.     LVUSE #This 1
  115.     LVAction DELETE "ram:"
  116.     Update "InfoBar" 1 "Lösch Prozess beendet ..."
  117.  
  118. XBUTTON 245 375 80 18 "Benutzen"
  119.     GadFont xHelvetica.font 11 010
  120.     LVUSE #This 1
  121.     LVMulti First
  122.     while $$lv.line > ""
  123.         LVUSE #This 1
  124.         JoinFile $$lv.dir $$lv.rec vorlfile
  125.         LVUSE HTMLEXT 3
  126.         SetVar aktdir $$lv.dir
  127.         ReqFile -1 -1 250 500 "Bitte Name der Datei geben ..." FILE "newfile" "$aktdir"
  128.         ifexists file $newfile
  129.             EZREQ "Soll die bestehende Datei gelöscht werden ($newfile)" "Weiter|Abbrechen" abfr1
  130.             if $abfr1 = 1
  131.                 Update "InfoBar" 1 "Erstelle Datei ... $newfile"
  132.                 CLI 'copy $vorlfile to $newfile NOREQ'
  133.             endif
  134.         else
  135.             Update "InfoBar" 1 "Erstelle Datei ... $newfile"
  136.             CLI 'copy $vorlfile to $newfile NOREQ'
  137.         endif
  138.         CLI 'rx $*EDITOR OPENNEW $newfile'
  139.         LVUSE HTMLEXT 3
  140.         LVDir #$$lv.dir
  141.         LVMulti OFF
  142.         LVMulti Show
  143.         LVMulti First
  144.     EndWhile
  145.     Update "InfoBar" 1 "Fertig!"
  146.     GuiQuit #This
  147.  
  148. XBUTTON 325 375 80 18 "Schliessen"
  149.     GadFont xHelvetica.font 11 010
  150.     GuiQuit #This
  151.  
  152.